home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / complib / symp_euler_int_one.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  328 b   |  19 lines
  1. /*
  2. ### symplectic time centered Euler integration one stepper ###
  3. */
  4.  
  5. symp_euler_int_one(pvx1,pvx,ptime,time_step,dim)
  6. double *pvx1,*pvx,*ptime,time_step;
  7. int dim;
  8. {
  9.     int i;
  10.     extern int stop;
  11.     extern double *param;
  12.     extern int (*f_p)();
  13.     
  14.     symp_picard(pvx1,pvx,*ptime,time_step,dim);
  15.     if(stop)
  16.         return;
  17.     *ptime += time_step;
  18. }
  19.